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COMO EVITAR 


ERROS 


Nem sempre é fácil separar o joio do 
trigo, quando se trata de 
programação: programas inteiramente 
corretos podem apresentar 

erros inesperados. Aprenda a evitá-los. 


A palavra-chave é uso. Não importa 
se o programa é considerado bom de um 
ponto de vista estritamente técnico: se 
ele se mostrar complicado, alguém vai 
fatalmente acabar tendo dificuldades e 
cometendo erros, 

O segredo para contornar esse pro- 
blema é fazer programas bem ordena- 
dos, de forma que todos os seus módu- 
los sejam claros no que se refere à fun- 
ção e ao modo de uso. 

Isso significa oferecer muitas infor- 
mações e telas explicativas e proteger 
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adequadamente tanto o programa quan- 
to o usuário de erros simples. 

O ideal seria colocar no programa 
proteções contra todos os erros possi- 
veis. Teclas pressionadas equivocada- 
mente, entradas irregulares, valores ab- 
surdos — tudo, enfim, que possa atra- 
palhar a correta execução de um pro- 
grama deve ser evitado. Para isso, é 
necessário que se incorporem vários ti- 
pos de rotinas de verificação de erros e 
validação de entradas ao programa. 
Muitos dos programas mostrados por 
INPUT até o momento fazem uso des- 
ses artifícios. 





Mensagens precisas são muito impor- 
tantes para ajudar o usuário a com- 
preender de que maneira deve respon- 
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der quando apresentado, por exemplo, 
a um menu de opções. 

Suponhamos, por exemplo, um me- 
nu que mostre as seguintes opções, típi- 
cas de um programa que manipula um 
banco de dados: 


- Criar um novo registro. 

. Alterar um registro existente. 
. Carregar um arquivo. 

- Gravar um arquivo. 


Es 4) [1 ti 


Se for usada uma mensagem do tipo 
“Selecione uma opção: ou “Faça sua 
escolha:"', o usuário ficará em dúvida 
sobre o que fazer. Deve dar entrada ao 
número da opção ou digitar uma ou 
mais letras do nome da opção? 

Certamente, uma mensagem mais ade- 
quada seria “Indique a escolha (1-4)” 
“Tecle 1-4 para fazer sua opção”. 

Esse tipo de indicação deve ser feito 














também em perguntas que exijam uma 
resposta simples do gênero sim ou não. 
Assim, em vez de usar alguma coisa 
do tipo “Tenta novamente?” — onde 
“sim”* pode ser indicado por uma tecla 
não específica, ou pelo acionamento do 
botão de disparo do joystick, ou teclan- 
do-se S —, especifique as possibilidades: 
“Pressione o botão de disparo para jo- 
gar novamente”, ou “Tenta novamen- 
te? (S/N). Estas são formas muito 
mais diretas e claras de proceder. 

Mesmo a mensagem “*Pressione qual- 
quer tecla para continuar” pode causar 
confusão. Vale a pena prepará-la a fim 
de evitar que alguém queira pressionar 
algo como <BREAK> ou <STOP> 
ou ainda <ESCAPE>, correndo, as- 
sim, O risco de terminar o programa. 
Por exemplo, nenhum problema pode 
acontecer com esta mensagem: “Pres- 
sione a barra de espaços para con- 
tinuar”. 

Em alguns tipos de computador, a te- 
cla a ser pressionada pode ser evidencia- 
da por meio do caractere invertido na 
mensagem. 

Outra boa opção (que é também uma 
excelente técnica de programa), não im- 
porta a espécie de mensagem, é desati- 
var qualquer tecla que possa atrapalhar 
ou interromper a execução do progra- 
ma (isso pode ser feito com o emprego 
de rotinas que excluam todas as entra- 
das impossíveis). 

Para recapitular, ou mesmo para 
uma simples resposta “sim” ou “não”, 





MUTO 


pode-se usar algo como: 


90 LET AS=INKEYS 

92 IF AS="" THEN GOTO 90 
95 IF AS<>"S” AND AS<S>"N” 
THEN GOTO 90 


ny 


90 AS=INKEYS 
95 IF AS<>"S” AND AS<>"N” THEN 
90 


bile) 


10 GET AS 
20 IF AS<>"S” AND AS<>"N” 
GOTO 10 


Por outro lado, rotinas bem mais so- 
fisticadas podem ser usadas para inva- 
lidar a entrada de grupos de valores. 

Qutra maneira de tornar as coisas 
mais fáceis para o usuário é restringir a 
quantidade de dados a serem digitados. 
Por exemplo: se for suficiente pressio- 
nar apenas uma tecla, então prepare o 
programa de acordo com essa possibili- 
dade. E, para evitar qualquer confusão, 
utilize sempre o mesmo tipo de mensa- 
gem e resposta ao longo de um progra- 
ma comandado por menus. Assim, se a 
seleção da opção do menu de abertura 
for feita pela teclagem de um número, 
tende a usar o mesmo sistema em todos 
os outros menus. 


THEN 
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Da mesma forma, empregue sempre 
o mesmo código para cada menu ou lis- 
ta de opções. Se a terceira opção for 
“GRAVAR” em um ponto e “SAIR 
DO PROGRAMA” em outro, alguém 
pode não ficar muito satisfeito com o 
seu programa. 

Essa regra deve também ser aplicada 
quando a entrada de dados for necessá- 
ria (particularmente, quando houver 
uma longa sequência). Quando os da- 
dos forem restritos a um pequeno gru- 
po e tiverem um padrão simples, pode- 
se usar uma mensagem múltipla. Um 
exemplo de dados desse tipo é um ar- 
quivo de nomes e endereços, no qual ca- 
da nome é seguido de quatro linhas de 
endereço e um número de telefone. 

Por outro lado, é necessário tomar 
cuidado com coisas mais complexas, co- 
mo um arquivo de cadastro de clientes, 
onde há pouca semelhança entre os da- 
dos, e o número de entradas muda de 
registro para registro. Alguns campos 
podem mesmo ficar vazios. 

Uma maneira de limitar o número de 
erros, neste caso, é fazer uma divisão da 
entrada de dados, por grupos ou indi- 
vidualmente. Assim, pode-se ter apenas 
uma mensagem para nome e endereço 
e outra para cada detalhe especifico que 
vier depois. 

Monte as mensagens para que elas 
apareçam, uma de cada vez, ou em di- 


ferentes cores, ou (pelo menos) bem es- 


paçadas umas das outras. Limpar a te- 
la após cada série de entradas é muito 
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mais eficiente em termos estéticos do 
que deixar a tela ir rodando para cima 
(scroll) indefinidamente. 

Em alguns tipos de programa uma 
entrada não usual pode chamar uma 
sub-rotina particular. Assim, em um ar- 
quivo de dados, pode ser requerida uma 
informação adicional para determina- 
dos tipos de entrada. Nesse momento, 
se O usuário, razoavelmente familiariza- 
do com a sequência normal na qual os 
dados são entrados, não notar a nova 
série de entrada de dados, pode come- 
ter diversos tipos de erro. 

Nesses casos, são necessárias algumas 
rotinas de detecção de erros; mas é im- 
portante também deixar claro para o 
usuário que os dados requeridos muda- 
ram. Isso pode ser feito por meio de 
uma mensagem piscando ou um video 
inverso, ou mesmo de algum tipo de avi- 
so sonoro, como um bipe, se o seu com- 
putador puder emitir sons. 


| DETECÇÃO DE ERROS 


A maneira mais fácil de evitar que o 
programa incorpore erros é dar ao usuá- 
rio a possibilidade de aceitar ou rejeitar 
os dados já digitados. Isso pode ser fei- 
to com o auxílio de uma mensagem do 
tipo: “OS DADOS ESTÃO CORRE- 
TOS? (S/N). Neste caso, se você pres- 
sionar a tecla N provocará o reinicio da 
rotina dé entrada de dados. Mas isso só 
será necessário se uma grande quantida- 
de de dados for manipulada. 

Se você pretende incorporar a um 
programa uma rotina de confirmação 
dos dados, junte as entradas em grupos; 
desse modo, o programa ficará mais fá- 
cil de operar, evitando a repetição da 
confirmação a cada entrada. 

No entanto, apesar de rotinas desse 
tipo serem eficazes no combate aos er- 
ros, Os programas têm que ser protegi- 
dos contra entradas inadequadas. 

Por exemplo, como evitar que letras 
e números sejam colocados juntos on- 
de somente se requer um desses tipos de 
informação (ou letra ou número)? Deve- 
se sempre antecipar possibilidades de er- 
ro como esta quando se está montando 
uma rotina. 





LIMITES DE TAMANHO 


Na maioria dos programas de contro- 
le de arquivos, o tamanho das entradas 
tem um limite máximo, seja em núme- 
ro de caracteres, seja em valor numéri- 
co. Um programa que imprima etique- 
tas, por exemplo, tem os seus dados res- 
tringidos pelo tamanho de cada etique- 


ta. Afinal, não tem sentido fazer a digi- 
tação de um endereço de 25 ou de trin- 
ta caracteres se a entrada dispuser de es- 
paço para apenas vinte. 

Podemos usar mensagens ou mostrar 
o limite da entrada com indicadores co- 
mo caracteres invertidos ou qualquer 
outro efeito visual que deixe claro qual 
é o limite máximo aceitável. 

Ainda assim, rotinas adicionais de- 
vem ser usadas para invalidar entradas 
que excedam o máximo. Em alguns ca- 
sos, pode-se truncar o dado no tamanho 
certo e deixar para a rotina de confir- 
mação a tarefa de verificar se o dado se- 
rá aceito ou não. Na maioria das vezes, 
porém, é melhor recomeçar a rotina de 
entrada no ponto onde houve erro, colo- 
cando uma mensagem como “ENTRA- 
DA MUITO LONGA! DIGITE NOVA- 
MENTE.” ou qualquer coisa parecida. 

Outra boa razão para se limitar o ta- 
manho das entradas é economizar me- 
mória. Afinal, não há sentido, por 
exemplo, em usar vinte ou mais carac- 


teres para o código de endereçamento ' 


postal, quando este nunca ocupa mais 
de cinco. Procure diminuir o tamanho 
dos campos tanto quanto possível para 
economizar memória, especialmente no 
caso de programas de arquivo. 





“VALORES INCORRETOS 


Estabelecer limites é importante tam- 
bém por outras razões, particularmen- 
te em programas que fazem uso de da- 
dos numéricos. Suponhamos, por exem- 
plo, que o programa pede três números 
(ou os lê da memória), e divide a soma 
dos dois primeiros pelo terceiro. Um pe- 
queno erro de digitação pode colocar 
um O no lugar de um 9 ou fazer com que 
o valor O apareça como resultado de ou- 
tra operação. Nesse caso, a não ser que 
o programa esteja protegido contra es- 
se tipo de erro, o resultado será uma 
mensagem “DIVISÃO POR ZERO” e 
o término abrupto do programa. 

Num caso como o nosso, a proteção 
exigida é mínima, visto que uma simples 
rotina de verificação de entradas do te- 
clado é suficiente para restringir entra- 
das inoportunas. 

Mas, no caso de cálculos “internos”, 
onde é possível gerar um 0, devemos uti- 
lizar rotinas especificas. Este é um caso 
em que é preciso prever o pior. Assim, 
convém construir uma rotina com o uso 
de operadores relacionais (que serão 
abordados mais adiante, em outra li- 
ção). Podemos usar alguma coisa assim: 
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IF A=0 THEN GOTO 10000 

A linha 10000 será então o início de 
uma rotina que poderá ajustar o valor 
para algo diferente de O (mas aceitável 
pelo programa) ou avisar o usuário de 
que um cálculo impossível está para 
acontecer. Neste último caso, O progra- 
ma será redirecionado para a rotina de 
entrada de dados para que se escolha um 
valor alternativo. 

Uma gama específica de valores po- 
de ser determinada usando-se simples- 
mente algo como o familiar: 

IF N>100 OR N<1 THEN... 

No caso de ser digitado um valor fora 
da faixa, essa instrução devolverá a exe- 
cução para o início da rotina de entrada. 

Qualquer que seja o seu procedimen- 
to dentro do programa, o usuário deve 
ser avisado sobre qual é a faixa aceitá- 
vel de dados e, se algum erro ocorrer, 
ele deve ser informado com uma men- 
| sagem adequada. 





Desta maneira, ele saberá como pro- 
ceder. Isso tudo pode ficar em uma sub- 
rotina acessada só em caso de neces- 
sidade. 





INDICAÇÃO DE ERROS 


Se você der ao usuário instruções cla- 
ras de como proceder a cada vez que ele 
for confrontado com uma entrada de 


- dados, uma grande parte dos erros será 


evitada. No entanto, quando algum er- 
ro ocorrer, deve-se informar exatamen- 
te a origem do problema para que ele 
não se repita. 

Esse procedimento exige um conjun- 
to de mensagens feitas especialmente pa- 
ra cada situação (não confundir com as 
mensagens de erro do computador). Es- 
tas, por sua vez, podem ser definidas e 
colocadas em uma sub-rotina especial 
que só deve ser chamada quando acon- 
tecer algum problema. 

Essas rotinas são normalmente usa- 
das para indicar valores fora dos limi- 


DETECTE ERROS AUTOMATICAMENTE | 
Uma das formas de se evitar erros 
em um programa consiste em equipá- 
lo com dispositivos de detecção. Esses 
dispositivos funcionam no sentido de 
desviar o fluxo do programa, enviando-o 
a rotinas que corrigem a falha ou pre- 
vinem o usuário de sua ocorrência. 
Para isso, são necessárias instru- 
ções especiais. Os micros das linhas 
TRS-80, TRS-Color, Apple, TK-2000 e 
MSX, por exemplo, dispõem do pode- 
roso comando de desvio ON ERROR 
GOSUB... Este deve ser colocado em 
um ponto do programa anterior ao blo- 
co em que se deseja detectar erros de 
execução. Normalmente, ele é digitado 
no começo do programa. Sua função 
consiste em preparar o computador pa- 
ra “saltar” para a linha indicada após 
| o GOSUB, sempre que ocorrer um er- 
ro. O programador deve então escrever 
uma rotina (começando na linha indica- 
da) que identifique o erro e adote as 
medidas pertinentes. Para isso, existem 
as seguintes instruções suplementares: 


- Função ERR: retorna o número de có- 
digo do erro cometido. 

- Função ERL: retorna o número da li- 

| nha onde ocorreu a falha. 

- Instrução RESUME: retorna a rotina 
de tratamento do erro para um ponto 
imediatamente após ao da ocorrência 
desse erro. 


Os micros citados acima contam 
também com o comando ERROR n, que 
provoca uma indicação de erro num 
ponto do programa (n é o número do 
código). Esse comando testa a instru- | 
ção ON ERROR GOSUB e a rotina de | 
tratamento de erros. | 





tes, duplicação de nomes de um campo- 
chave de um arquivo de dados, ou ain- 
da entradas incorretas, seja pelo tama- 
nho excessivo, seja pelo uso incorreto de 
caracteres. Assim, é possível criar men- 
sagens para quaisquer tipos de erros em 
um programa. 

Uma matriz e uma variável indicado- 
ra são suficientes para definir um certo 
número de mensagens e fazer com que 
o computador escolha a que é adequa- 
da para a situação, após identificar o er- 
ro ocorrido. 

A matriz para tais mensagens deve ser 
dimensionada logo no início do progra- 
ma, como parte dos procedimentos de, 
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inicialização. Ela deve ser ajustada de 
tempos em tempos de modo a incluir no- 
vas mensagens prevenindo erros que 
possam vir a ocorrer. Desta maneira, se 
você resolver usar um conjunto de no- 
ve mensagens de erro, este poderia ser 
um exemplo: 


10 DIM e5S(9,20): FOR z=1 TO 9 
' READ eS(z): NEXT z 

20 DATA "Dado muito longo!”", 
Erro de digitacao!” 

22 DATA "Senha errada!","Nao 
confere!” 

24 DATA "Introduza novamente! 
","Nao toque!” 

26 DATA "Pressione (s)im ou ( 
njao!”,"Somente numeros!","So 
mente letras!” 


TT 


10 DIM EMS(9):FOR Z=1 TO 9:READ 
EMS (Z) :NEXT Z 

20 DATA "DADO MUITO LONGO!" ,"ER 
RO DE DIGITACAO!” 

22 DATA "SENHA ERHADA!","NAÃO CO 
NFERE!” 

24 DATA ”" REINTRODUZA OS DADOS! 
", "NAO TOQUE!” 

26 DATA "PRESSIONE (5) IM OU (N) 
AO!” , "SOMENTE NUMEROS !","SOMENT 
E LETRAS!" 


Obviamente, você escolherá mensa- 
gens adequadas às condições do seu pro- 
grama. Assim, mais à frente no progra- 
ma, a cada entrada de dados, pode ser 
feita a seguinte verificação: 


E 


L0O0NO LET aS="": LET em=0: INPUT 
as 

1OLO IF LEN a5S>25 THEN LET em= 
1 

1010 IF as<>"credito” THEN LET 
em= 3 

1010 IF a5S="5" 0R aS="9" THEN 

LET em=4 

1010 TF aS="" THEN LET em=5 
1010 TF aS=" " THEN LET em=-6 
1010 TF as<>"s” AND ag<>"n”" THE 

N LET em=/ 

L01O0O IF a5<"0" OB aS>"9" THEN 
LET em=b 

LO1IO TF as<"a” OR as>"z” THEN 

LET em=9 

LO1O FOR z=| TO LEN às: TF astz 
)J="0" THEN LET em=2 


1015 NEXT 2 


Pg Lob Lçó) 


1000 EM=0: INPUT AS 

1010 1F LEN(AS)>25 THEN EM=1 
1010 IF AS<>"CREDITO”" THEN EM=3 
ia IF AS="5" OR AS="9" THEN E 
1010 IF A$="" THEN EM=5 

1010 IF AS=" " THEN EM=6 

1010 IF AS<>"5”" AND AS<>"N" THE 
N EM=7 

a IF AS<"0" OR A$>"9" THEN E 
M= 8 





1010 IF AS<"A” OR AS>"Z" THEN E 
ade 

1010 FOR Z=1 TO LEN(AS):IF MIDS 
(AS,Z,1)="0" THEN EM=2 


1015 NEXT Z 


Observe que a linha 1010 é opcional, 
ou seja, você pode escolhê-la ou não, de- 
pendendo da situação. Apenas a última 
opção utiliza uma linha adicional, a 
1015. Atenção para a quinta opção, que 
funciona apenas no TRS-Color e no 
Spectrum. 

Quando a checagem de entrada reve- 
la um erro, a variável ME assume um 
valor particular, relacionado com a 
mensagem previamente definida que 
corresponde aoserro. 

A primeira opção testa se ocorreu 
uma entrada maior do que 25 caracte- 
res; a segunda insiste na senha correta. 
A terceira é típica de uma reconfirma- 
ção de informação. A quarta pede que 
um dado seja redigitado após uma en- 
trada vazia. À opção seguinte responde 
de modo ihesperado quando a barra de 
espaços é pressionada. A sexta é uma va- 
riação da checagem que geralmente é 
feita após uma resposta sim/não. As 
duas seguintes verificam se apenas nú- 
meros ou letras foram digitados e a úl- 
tima testa a presença de um O (letra) no 
lugar de um O (número). 

O programa prossegue, atravês de 
uma sub-rotina que mostra a mensagem 
adequada ao erro: 


2000 IF Em>0 
es (em) 


Do Lab ico] 


2000 IF EM>O THEN PRINT EMS (EM) 


THEN PRINT TAB 6; 
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COMPUTADORES 





Nos filmes de ficção científica, vemos 
com frequência computadores capazes 
de falar. Você deve se lembrar, entre vá- 
rios outros, do HAL 9000, o tenebroso 
e megalomaníaco computador do filme 
“2001 — Uma Odisséia no Espaço”, e 
os robôs falantes da série “Guerra nas 
Estrelas”. Só muito recentemente, po- 
rém, os computadores reais e, particu- 
larmente, os microcomputadores pes- 
soais receberam periféricos que lhes 
conferem o dom da voz. No exterior, já 
existem sintetizadores de voz para qua- 
se todos os tipos de microcomputado- 
res— e a preços bastante baixos, gra- 
ças à nova geração de chips de circuito 
integrado, fabricados especialmente pa- 
ra a síntese da voz. Alguns desses sinte- 
tizadores podem ser encontrados tam- 
bém no Brasil. 


“PARA QUE SERVEM? 





Por que dar ao micro a capacidade 
de falar? Bem, antes de mais nada, não 
há dúvida de que isso seria tremenda- 
mente divertido. Basta pensar na infi- 
nidade de coisas que você faria com um 
computador falante: ele poderia contar 
piadinhas, recitar poemas ou, então, 
efetuar tarefas mais práticas, como ler 
em voz alta instruções complexas para 
um jogo, dispensando-o de abrir o ma- 
nual a toda hora. 

A utilização dos sintetizadores de 
voz em jogos é, também, muito interes- 
sante. Você já deve ter visto alguns vi- 
deogames e flipers que tagarelam alegre- 
mente com o jogador. O sintetizador 
permite que você aumente a velocida- 
de de interação com o jogo e que eco- 
nomize espaço na tela, se as mensagens 
ou instruções dirigidas ao jogador fo- 
rem faladas, e não exibidas. Além dis- 
so, como você não precisará ler fre- 
quentes mensagens na tela, poderá con- 
centrar sua atenção nos joysticks e nos 
gráficos. 

claro que os sintetizadores de voz 
também têm aplicações mais “sérias”, 
tais como auxiliar ima pessoa cega a uti- 
lizar o computador. Um programa es- 
pecial pode fazer com que o sintetiza- 
dor pronuncie, letra por letra, ou pala- 
vra por palavra, tudo o que é digitado 


QUE FALAM 





no computador, ou que leia em voz al- 
ta listagens de programas ou dados, à 
medida que aparecem na tela. 

Chips de síntese de voz estão come- 
çando a ser usados também em automó- 
veis, para lembrar ao motorista que ele 
esqueceu de colocar o cinto de seguran- 
ça, avisar-lhe que a pressão do Óleo es- 
tá baixa, e assim por diante. E, sem dú- 
vida, podemos prever que seu uso se ex- 
pandirá grandemente no ramo dos ele- 
trodomésticos. Já temos uma amostra 
disso nos fornos de microondas que avi- 
sam quando o prato está pronto, ou em 
secretárias eletrônicas que atendem edu- 
cadamente aos telefonemas na ausência 
do morador. 

Os sintetizadores de voz também são 
muito úteis no ensino, tornando diver- 
tido aprender a soletrar palavras em 
qualquer idioma, ou a reconhecer letras 
e números. 

Seu micro pessoal é capaz de tudo is- 
so, desde que você conecte a ele o tipo 
apropriado de sintetizador de voz. 





OS TIPOS PRINCIPAIS 


Tecnicamente, existem dois métodos 
principais para se obter a sintese da voz 
humana. Eles são bem diferentes en- 
tre si, e ambos apresentam vantagens e 
desvantagens. 

O primeiro método utiliza amostras 
de fala humana: um locutor enuncia le- 
tras, números, palavras ou frases intei- 
ras, que são convertidas para números 
digitais e armazenadas permanentemen- 
te em um chip de memória. O segundo 
método armazena apenas sons elemen- 
tares (fonemas, sílabas), que um gera- 
dor de sons do computador produz, uti- 
lizando-os depois para compor palavras 
e frases mais complexas. 

O tipo de sintetizador que armazena 
amostras de fala humana alcança, na- 
turalmente, uma qualidade de reprodu- 
ção muito mais fiel. Em compensação, 
ocupa muito espaço na memória e seu 
vocabulário é mais restrito. 

O chip sintetizador de voz desenvol- 
vido pela Texas Instruments (já dispo- 
nível no Brasil, com um vocabulário em 
português) é um bom exemplo deste pri- 
meiro tipo. As ondas sonoras (o sinal de 


"ds 


dci dd 44 


a 





aa 
PA 


Já existem sintetizadores de voz para 

a maioria dos microcomputadores 
domésticos. Veja aqui a descrição dos 
tipos mais importantes e os efeitos 

que você pode obter com cada um deles. 





voz) são inicialmente convertidas para 
números digitais por um conversor ana- 
lógico-digital (ADC), de maneira que 
possam ser armazenadas em um chip de 
memória ROM. Posteriormente, quan- 
do a palavra ou frase é gerada, o sinal 
digital armazenado é convertido de volta 
para o sinal analógico original. Na ver- 
dade, não se armazena o sinal de voz 
original de forma integral, o que exigi- 
ria uma quantidade enorme de memó- 
ria, mas apenas informações sobre o si- 
nal. Consegue-se, assim, uma grande 
conriad do sinal original. ses fa- pg 
la fosse integralmente digitada, pr precisa- 
riamos de cerca de 500 KUyteaE para 2 mi-. 
nutos de fala — muito mais memória do 
que a maioria dos micros dom op 
dispõe. Felizmente, a técnioR 
pressão obtém uma reduçia 
modo que os dois minutos ca 
simples chip de ROM. a 
O segundo tipo de sin etizador de voz. 
é o mais comum. Em vez Hei armaze-. 
nar palavras completas, ele dação nas 
os fonemas básicos aa idioma, como | 
“bao. o(a “eh” etc. + EN 
nemas também são « amado: ad , 
nos, o sintetizador torsonge | hei | 
como sintetizador alofôn o EU” 
Existem cerca de sessenta f 
deste tipo na maioria das ling' as 
tais. Com eles, pode-se constrt 
quer palavra ou frase em 1 ma det ri - 
nada língua. É claro que os fonemas d 
língua portuguesa são bem diferentes 
dos da língua inglesa. Assim, em prin- 
cípio, é possível sintetizar fala em por- 
tuguês a partir de um sintetizador fabri- 
cado nos Estados Unidos, só que o com- 
putador terá um acentuado “sotaque” 
norte-americano. 
Neste método, não se armazena a fa- 
la verdadeira, mas apenas a informação 
digital que é empregada para ativar o ge- 
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“rador de sons interno, o qual produzirá 


uma aproximação digital do fonema de- | 
sejado. Cada fonema tem um código, |. 
ou endereço inicial de armazenamento, 

que está disponível em uma tabela de 
consulta dentro do chip. 

Um programa escrito para o sinteti- 
zador deve preocupar-se apenas em cha- 
mar o código correto, quando ele é ne- 
cessário. Ássim, economiza-se muita 
memória, pois para cada segundo de fa- 





la são necessários somente 12 bytes de 
informação digital. 

Você já deve ter visto alguns dicio- 
nários que utilizam esquemas fonéticos 
escritos, para indicar a pronúncia das 
palavras. A representação de cada som 
muitas vezes corresponde à própria le- 
tra ou silaba, como “'te'”, “cha” etc.; 
mas, em alguns casos, assume formas 
bem mais complexas, como ''ng”, “cz” 
etc. O número de sons e a forma exata 
como são indicados dependem, natural- 
mente, do idioma ou, ainda, do sotaque 
regional, 


VOCABULÁRIO 





os ht; rd alofônicos têm a 
vantagem de dispor de um vocabulário 
praticamente limitado, pois qualquer 
papas em princípio, gg ser Sonstruí- 
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E POR QUE USAR UM 
| * SINTETIZADOR DE VOZ 
a SINTETIZADOR COM 


ARMAZENAMENTO DE VOZ 


E OTIPOALOFÔNICO 


da a partir dos fonemas. Mas esses sin- 
tetizadores apresentam uma desvanta- 
gem: a qualidade da voz, que é baixa, 
parecendo mais a voz típica de robôs — 
monótona, sem as modulações de inten- 
sidade e frequência que tornam a fala 
melodiosa e carregada de diversos tipos 
de significado (fim de uma frase, excla- 
mação, ironia, ênfase etc.) 

A maioria dos sintetizadores que ar- 
mazenam a fala, por sua vez, dispõe de 
um vocabulário bastante limitado (algo 
em torno de cem palavras ou frases cur- 
tas), mais a pronúncia das letras do al- 
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fabeto, dos números e alguns sufixos e 
prefixos, como “'ésimos”', Além disso, 
ao contrário dos sintetizadores alofôni- 
cos, eles não podem ser programados, 
O que diminui muito sua flexibilidade, 
ainda que se possa comprar chips adi- 
cionais com novos conjuntos de pala- 
vras. Mas eles apresentam uma vanta- 
gem: como a fala sintetizada é muito 
mais autêntica, são mais úteis quando 
mensagens curtas — mas que precisam 
ser muito claras — devem ser pronuncia- 
das (por exemplo, instruções como “pres- 
stone qualquer tecla para começar”), 
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COMO CONECTAR O SINTETIZADOR 


Quase todos os sintetizadores de voz 
são vendidos na forma de cartuchos (se- 
melhantes à expansão de memória dos 
micros da linha Sinclair; são conectados 
à interface de expansão na parte de trás 
do console) ou na forma de placas de 
circuito impresso, que devem ser encail- 
xadas em um dos soquetes internos do 
computador (é o caso dos micros da li- 
nha Apple). Os sintetizadores que ocu- 
pam o único soquete de expansão da 
máquina geralmente fornecem um so- 
quete de expansão próprio, ao qual se 
pode ligar um joystick, uma impresso- 
ra etc. 

Outro tipo bastante comum de sinte- 
tizador é o que utiliza uma porta serial 
padrão, do tipo R$-232C, para se comu- 
nicar com o computador. Assim, podem 
ser usados com muitos tipos diferentes 
de microcomputadores. 

Todos esses sintetizadores estarão 
prontos para operar tão logo sejam li- 
gados ao soquete correto. A saída do 
som pode ser feita através de uma co- 
nexão para um sistema de alta- 
fidelidade (amplificador e alto-falantes), 
ou então para a TV. Em ambos os ca- 
sos, controla-se o volume e a altura do 
som gerado, o que possibilita torná-lo 
menos áspero ou “robótico”. Outros ti- 
pos de sintetizador têm seu próprio sis- 
tema de amplificação e de alto-falante, 
ou utilizam o alto-falante interno do mi- 
crocomputador. Nesse caso, geralmen- 
te é impossível controlar o volume 
sonoro. 


SÍNTESE POR SOFTWARE 





Os microcomputadores que possuem 
geradores sonoros sofisticados oferecem 
uma alternativa bastante razoável para 
se obter síntese de voz sem necessidade 
de hardware especial. Uma máquina 
bem popular na Europa e nos Estados 
Unidos, o Commodore 64, tem um po- 
deroso gerador de efeitos sonoros e mu- 
sicais, que pode ser programado para 
sintetizar voz por aproximação digital. 
O sintetizador possibilita o controle de 
diversos canais de som, simultaneamen- 
te, bem como a manipulação de vários 
parâmetros de modulação de fregiiên- 
cia, envelope e intensidade. 

No Brasil, os micros da linha TRS- 
Color e MSX podem ser usados desta 
maneira, ou seja, simplesmente adqui- 
rindo-se um software específico para 
sintese de voz. Evidentemente, o tipo 
utilizado, nesse caso, é o de síntese alo- 
fônica, ou por fonemas. 





COMO PROGRAMAR O SINTETIZADOR 


A forma mais direta de operação da 
maioria dos sintetizadores consiste, sim- 
plesmente, em pronunciar letras e núme- 
ros, cada vez que a tecla corresponden- 
te é pressionada no computador. Alguns 
modelos existentes para o Sinclair e o 
Spectrum também são capazes de pro- 
nunciar por extenso instruções, coman- 
dos e funções do BASIC, associados a 
cada tecla. 

Entretanto, para fazer com que o sin- 
tetizador emita palavras ou frases com- 
pletas, é necessário dispor de um softwa- 
re especial — geralmente em linguagem 
de máquina — que deve ser carregado 
na máquina antes da utilização do sin- 
tetizador. Este software habilita o inter- 
pretador BASIC, por meio de uma se- 
quência de comandos PRINT, a trans- 
mitir ao sintetizador a mensagem ou 
mensagens a serem pronunciadas. 

Um sintetizador de voz para os mi- 
cros da linha Apple, por exemplo, po- 
de ser programado por meio de instru- 
ções PRINT comuns, dentro de um pro- 
grama BASIC. Para isso, bastam alguns 
comandos POKE especiais, que habili- 
tam a interface do sintetizador. 

Existem três sistemas diferentes pa- 
ra especificar a sequência de fonemas ou 
de vocábulos que devem ser pronuncia- 
dos pelo sintetizador. O mais simples de- 
les utiliza códigos numéricos para iden- 
tificar os fonemas ou os vocábulos. Es- 
tes códigos dependem do chip sintetiza- 
dor que está sendo empregado; a forma 
de usá-los dentro de um programa tam- 
bém varia amplamente. Por exemplo, os 
códigos para “hello” (alô) são 27, 7, 45 
e 53. Os números pqdem ser entrados 
como uma linha DATA: 


DATA 27,7,45,53 
“.. OU como uma cadeia alfanumérica: 
LET A$="27074553" 


O manual que acompanha o sinteti- 
zador explica detalhadamente, com mui- 
tos exemplos, como utilizar os códigos. 

A desvantagem desse sistema é que 
ele é pouco “natural”, tornando muito 
trabalhosa a tarefa de especificar até 
mesmo segiiências curtas de fonemas ou 
de palavras. Por isso, desenvolveu-se 
um segundo tipo de software, mais fá- 
cil de usar, que se baseia em algo seme- 
lhante aos esquemas fonéticos de pro- 
núncia encontrados nos dicionários. Por 
este método, as palavras que compõem 
a frase são escritas com notações espe- 
ciais para cada fonema. Veja como vo- 
cê poderia dizer ““hello”” em dois tipos 
diferentes de sintetizador: 





10 LET sS = "he (11)(00)” : 
PAUSE 1 





10 AS$="HH1L,EH,LL,OW,4” 
20 PRINTRA, AS 


O manual do sintetizador traz uma 
lista de todos os fonemas, indicando co- 
mo especificá-los. Como você vê, é bem 
mais fácil do que usar códigos numéri- 
cos mas, em compensação, é preciso co- 
nhecer detalhadamente a forma de es- 
pecificação dos fonemas. | 

O terceiro sistema é bem mais sofis- 
ticado, fazendo a chamada ''síntese por 
transformação direta texto-fala””. Por 
enquanto, programas desse tipo existem 
somente para alguns idiomas, entre os 
quais o italiano, o alemão, o japonês, 
o francês e o inglês. Com eles, basta for- 
necer um texto escrito de forma correta 
ao sintetizador, e este produzirá auto- 
maticamente a sequência de fonemas 
que gerará a voz: 


r 


10 CALL 
20 PRINT 


-435 
“HELLO” 


As regras de conversão texto-fala não 
são, naturalmente, infalíveis, e a exis- 
tência de um grande número de exce- 
ções, notadamente no inglês, pode pro- 
duzir os mais absurdos resultados. 

Para usar em português um sistema 
como este, é necessário grafar as frases 
como um norte-americano as pronun- 
ciaria. Por exemplo, como será pronun- 
ciado o texto abaixo? 


20 PRINT "EHDEEHTOHURAH NOHVAH 
KOOLTOORAHL ” 


Alguns sistemas de síntese de voz per- 
mitem a programação de entonação e 
ênfase, de modo que a fala saia menos 
monótona e mais interessante, com pau- 
sas e modulações capazes de dar diferen- 
tes conotações às palavras — o que é 
muito importante na linguagem falada. 
Com isso, pode-se indicar ao computa- 
dor qual a sílaba tônica de uma palavra, 
se a frase é interrogativa ou exclamati- 
va etc. 

Como se vê, os sintetizadores, além 
de nos proporcionar momentos de diver- 
são, poderão nos ensinar muita coisa so- 
bre nossa própria linguagem, se forem 
do tipo alofônico. 
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Num luxuoso cassino, o homem da banca 
lança um olhar frio e indiferente. 

Você faz sua aposta e recebe uma 
nova carta. Há um momento de suspense. 
ah que você atingiu os 21 pontos? 


- Além dá a gráfica dprsnentada. 
go anterior, precisamos de duas. 
para joga: Eiate-epuim: nao: 
:. es a Sae 


se comunique com o jogador e outra que 
permita ao computador fazer o papel da 
banca. A parte que você digitará agora 
cuida do jogador. Ela faz três coisas: dá 
as cartas, permite ao jogador fazer apos- 
tas e pedir mais cartas, e mostra o total 
de pontos — soma dos valores das car- 
tas — e de fichas, 

A banca solicita ao jogador que apos- 
te, depois de ter dado duas cartas: uma 
para ele e outra para si mesma. Após re- 
ceber a segunda carta, o jogador pode 
Pair outra, “comprar'" mais uma ou 

rar” 


ap 


E A DISTRIBUIÇÃO DAS CARTAS 
1 - COMO APOSTAR 
PEÇA MAIS CARTAS 
x TOTAL DE PONTOS 
E TENTE QUEBRARA BANCA 


tar as tarefas correspondentes às opções 
do jogador, distribuindo novas cartas 
e/ou dobrando a aposta, ou passando 
a vez de jogar para a banca. Depois de 
dar uma carta, o programa verifica se 
o total de pontos ultrapassou 21, ou se- 
ja, se o jogador “estourou” 

Além disso, o programa prevê duas 
outras situações: ''natural”' (quando o 
jogador faz 21 pontos com apenas duas 
cartas) e ''mão de cinco” (quando cin-. 
co cartas reunidas não chegam a somar 
22 pontos). Se qualquer delas ocorrer, 
o jogador será informado e a vez pas- 
sará para a banca. 





Adicione estas novas linhas ao pro- 
grama do artigo anterior. Note que a li- 
nha 530 foi apenas aumentada, 


90 DIM S(2): LET BET=B. 
100 DIM 0(2) : DIM. wW(2) 
500 LET X=B: : LET X=C: 

= pa pr 


LET TF=B 
Ns. F E=B 
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595 GOSUB 7000: GOSUB 7000: 
NEXT U 
622 IF S(2)=21 THEN LET PF=cC: 
PRINT PAPER 2;AT 4,18;" NATUR 
AL ”*: GOTO 2500 
700 IF (S(C)<l6 AND (542)<16 
OR S(2)>21) OR TF=C OR CP<AM) 
THEN GOTO 705 
702 INPUT "COMPRA, PEDE OR SATI 
SFEITO? ”"; LINE DS: IF DS<S>"C” 
AND DS<>"P” AND DS<>"S” THEN 
GOTO 702 
703 GOTO 715 
705 TF (S(C)>21] OR CP<AM OR TF 
=C) THEN GOTO 710 
706 INPUT "COMPRA OU PEDE? ”"; 
LINE DS: IF DS<>"C” AND DS<>2"P 
" THEN GOTO 706 
708 GOTO 720 
710 IF (S(C)<l6 AND (S(2)<1l6 
OR S(2)>21)) THEN GOTO 770 
7Z11 INPUT "PEDE OU SATISFEITO? 
"; LINE DS: IF DS<>"P” AND DS 
<>"58”" THEN GOTO 711 
715 IF D$="S”" THEN GOTO 2500 
720 IF LEN D5S=B THEN GOTO 700 
725 IF DS(C)<>"C" THEN LET TE 
=C: GOTO 905 
760 LET BET=BET+AM: 
AM 
770 PRINT PAPER 7;AT 21,B;"VO 
CE TEM ";CP;”" FICHAS” 
905 LET Z=C(CC) 
910 GOSUB 5500: 
GOSUB 7000 
920 LET X=K+6 
921 IF S(C)>21 THEN GOTO 2000 
925 IF X=31 AND S(C)<22 THEN 
PRINT PAPER Z;AT 21,B;" MAO D 
E CINCO! ”": LET FF=C: GOTO 
2500 
930 GOTO 700 
2000 IF CP=B THEN PRINT AT 21, 
B;"VOCE PERDEU TODAS AS FICHAS! 
". STOP 
2010 IF CP>=1000 THEN PRINT AT 
21,B;" PARABENS! VOCE QUEBROU A 
BANCA!": STOP 


LET CP=CP- 


GOSUB 6000: 


2020 PRINT 4C;"PRESSIONE 'S' PA 
RA OUTRA MAO” 
2030 IF INKEYS<>"S” THEN GOTO 


2030 

2037 IF PF=C OR DPF=C THEN GOS 

UB 5000 
2040 CLS 
2500 STOP 

6000 IF VA>D1O THEN LET VA=10 

6010 LET S(C)=S(C)+VA: LET S(2) 
=S (2) +VA 

6020 IF VA=C AND AF=B THEN LET 
S(2)=8(2)+10: LET AF=C 

6030 IF S(C)>21 THEN PRINT FL 

ASH C; PAPER 7;AT 20,B;" ";TAB 
9;"VOCE QUEBROU! ";TAB 31;* *: 
LET DPF=B: RETURN 

6040 PRINT AT 20,B;" ";TAB 31;” 


GOTO 90 


6050 PRINT PAPER 7; INK B;AT 2 
0,B:;"SEU SCORE E" ";S(C);: IF 5 
(2)<>S(C) AND S(2)<22 THEN PRI 
NT PAPER 7; INK B;” OU ";5(2) 
6060 RETURN 

6500 FOR N=10 TO 18 


6510 PRINT PAPER 7; INK 1;AT N 

+ X;CHRS 161;CHAS 161:;CHRS 161;€ 

HRS 161;CHRS 161 

6520 NEXT N 

6530 RETURN 

7000 LET CC=CC+C: 
LET CC=€C 

7010 RETURN 


IF CC=53 THEN 


As linhas 90 e 100 estabelecem a va- 
riável BET e três matrizes: 8, que con- 
tém os dois totais do jogador (um ás vale 
lou 11); O, que contém as duas primei- 
ras cartas da banca; e W, que contém 
os dois totais correspondentes à soma 
dessas duas cartas. 

A linha 500 estabelece as coordena- 
das do canto superior esquerdo da car- 
ta, e coloca o valor O em quatro variá- 
veis indicadoras. TF indica se o jogador 
já pediu cartas. Quando isto acontece 
pela primeira vez, seu valor passa a ser 
1 (segundo as regras, após “pedir” uma 
carta, o jogador não poderá mais “com- 
prar”” outras). AF é um sinalizador de 
ases usado para calcular os dois totais, 
já que um ás vale 1 ou 11. PF é um si- 
nalizador de “naturais”, e FF é um si- 
nalizador de ''mãos de cinco” (as regras 
do jogo serão apresentadas no próximo 
artigo). 

O laço FOR...NEXT entre as linhas 
520 e 595 cuida da distribuição das duas 
primeiras cartas do jogador e da banca. 
A linha 530 chama duas sub-rotinas: a 
da linha 6000 atualiza o total à medida 
que as cartas são dadas, e a da linha 
6500 desenha a parte de trás das cartas 
da banca. 

Analisemos essas sub-rotinas mais 
detalhadamente. A linha 6000 verifica 
se a carta em questão é uma carta de fi- 
gura. Se for, seu valor será 10. A linha 








6010 soma o valor da carta aos dois to- 
tais da matriz S. A 6020 verifica se a car- 
ta é um ás. A 6030 averigua e informa 
se o jogador “estourou”. 

Depois que o programa retorna ao 
seu curso principal, a linha 535 verifica 
se a carta atual é de número 52; se isso 
acontecer, o número da carta será mu- 
dado para O (nosso baralho tem 52 car- 
tas, numeradas de 1 a 52). A linha 540 
coloca as cartas da banca na matriz 0. 
A 550 adiciona seis posições à coorde- 
nada X da carta seguinte. 

O número de fichas que o jogador 
ainda tem é mostrado pela linha 560. A 
linha 570 pede para que seja feita a 
aposta e verifica se há fichas suficien- 
tes. O valor da aposta é colocado na va- 
riável BET e subtraído do total de fichas 
pela linha 590. As variáveis AM e BET 
são necessárias para o caso de o joga- 
dor vir a “comprar” cartas. 

Os dois GOSUB 7000 da linha 595 se- 
lecionam a carta atual (CC), asseguran- 
do seu retorno ao início do monte de 
cartas para que este não acabe. O laço 
FOR... NEXT termina aqui. 

A linha 622 verifica se as duas primei- 
ras cartas do jogador fazem um “*'natu- 
ral"*, ou seja, um total de 21 pontos. O 
sinalizador de “naturais””, PF, se torna 
| e o programa pára (a linha 2500 será 
apresentada no próximo artigo). 

As linhas 700, 705 e 710 testam as di- 
versas combinações de totais de pontos, 
o indicador TW e o número restante de 
fichas. Sua função é selecionar as op- 
ções para o jogador. Por exemplo, su- 
ponhamos que o total de pontos do jo- 
gador seja maior que dezesseis e menor 
que 21. Se ele ainda não tiver pedido ne- 
nhuma carta e o número de fichas for 








, 
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suficiente, a linha 720 colocará a sua dis- 
posição as opções de “parar”, “pedir” 
ou “comprar” cartas. Se, ao contrário, 
ele já tiver “pedido” alguma carta, não 
poderá mais ''comprar'' e apenas as op- 
ções de “parar” ou “pedir” mais car- 
tas lhe serão dadas pela linha 711. A ou- 
tra combinação de opções — “'com- 
prar” ou “pedir”' mais cartas apenas 
quando nenhum dos totais em S ultra- 
passar dezesseis — é oferecida pela li- 
nha 706. Se o jogador resolver parar a 
essa altura, essa versão inacabada do 
programa terminará. 

Caso apenas <ENTER> tenha sido 
pressionado, sem a letra corresponden- 
te à opção, a linha 720 repetirá as op- 
ções. A linha 725 acionará o indicador 
TW caso o jogador não tenha “compra- 
do” cartas. Se tiver, o programa irá pa- 
ra a linha 905. 

Se o jogador preferir comprar uma 
carta, a linha 760 modificará o valor da 
aposta (BET) e do restante das fichas 
(CP). A linha 770 mostra quantas fichas 
sobraram. As linhas de 905 a 920 mos- 
tram as cartas restantes, que foram 
“compradas” ou ''pedidas”. A linha 
921 atualiza os pontos do jogador. Ca- 
so ele tenha “estourado”, o programa 
irá para a linha 2000, onde será feita 
uma série de verificações. 

A linha 925 verifica se o jogador tem 
uma “mão de cinco”, examinando a po- 
sição da última carta dada ao jogador: 
se esta corresponder à quinta carta, e O 
total for inferior a 22, isso significa que 
o jogador tem uma ''mão de cinco””. O 
indicador FF será então acionado e o 
programa irá para a linha 2500. Se o jo- 
gador ainda não tiver parado de * “pe- 
dir”” cartas nem conseguido uma “mão 
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de cinco”, a linha 930 fará o programa 
voltar à linha 700. 


QUEBRANDO A BANCA 





Se o jogador perder todas as fichas, 
será informado pela linha 2000 e o jogo 
acabará. Se ganhar mais de 1000 fichas, 
ele “quebrará a banca”, sendo informa- 
do pela linha 2010. Se isso acontecer, O 
jogo terminará. 

Se o jogador tiver menos de 1000 fi- 
chas, a linha 2020 perguntará se ele de- 
seja outra “mão”. PRINT 1 é usado pa- 
ra colocar a mensagem na primeira li- 
nha da parte inferior do video. 

Quando um dos jogadores obtiver 
um “'natural””, as cartas serão embara- 
lhadas novamente pela linha 2037, que 
chamará a sub-rotina adequada. Se ele 
quiser jogar outra vez a linha 2040 lim- 
pará a tela, reiniciando o Jogo. 
Ri 

Apague as linhas 190 e 200 do pro- 
grama anterior e adicione as próximas 
linhas. 

84 R=RND(-TIME) :MN=100 

86 CX=31:CY=1:PL=0:DL=0:NC=2:DA 

=0:PA=0:P5=0:TW=0:PF=0:NA=N:BTs= 
O 

210 GOSUB 3000 

220 DI=N:GOSUB 1000:FOR 1=107 T 
2 180 STEP 3:LINE (30,1)-(74,I+ 
2) .6-B*(1/2=INT(1I/2)),BF:NEXT 
240 GOSUB 5000:GOSUB 6500 

250 GOSUB 8000:GOSUB 5000:GOSUB 
7000 

260 GOSUB 5000: PRESET(8,80):PRI 

NTt1,"Use as setas para apostar 
.": PRESET (8,92): PRINT$41,"Depois 
aperte <RETURN>" : CLOSE 


E) 
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265 AS=INKEYS:IF AS<>CHR$S(28) A 
ND AS<>CHR$ (29) AND AS<>CHRS (31 
) AND AS<>CHRS (30) AND AS<>CHRS 
(13) THEN 265 

266 IF ASC(A$)=30 THEN BT=BT+10 
:GOSUB 5000:GOSUB 8000:GOTO 265 
267 IF ASC(A$)=31 THEN BT=BT+I0 
* (BT>9) :GOSUB 5000:GOSUB 8000:G 
oTO 265 

268 IF ASC(A$)=28 THEN BT=BT+1: 
GOSUB 5000:GOSUB 8000:GOTO 265 

269 IF ASC(A$)=29 THEN BT=BT+1* 
(BT>0) :GOSUB 5000:GOSUB 8000:G0 
TO 265 


270 GOSUB 5800:BT=INT(BT):IF BT 
<1 OR BT>MN THEN 240 

280 OB=BT:MN=MN-BT 

290 CX=63:GOSUB 3000 

300 D2=N:GOSUB 1000:LINE (61,10 


6)-(105,185),12,BF:FOR I=107 TO 
180 STEP 3:LINE (62,1)-(105,1+ 
2),6-B*(1/2=INT(1/2)),BF:NEXT 
320 IF PL=11 AND PÃ=1 AND NC=2 
THEN 650 
330 CK=CX+32 
340 PT=PL+10* (PA AND(PL<12)) 
350 IF PL>21 THEN 680 
360 TF NC=5 THEN GOSUB 5000:G05 
UB 6000:PRINT&L, "VOCE TEM UMA 
MAO DE CINCO":P5=1:GOSUB 5500:G 
OTO 500 
370 GOSUB 5000:GÓSUB 6000 
380 GOSUB 8000 
390 GOSUB 5000:GOSUB 7000 
400 IF TW=0 THEN G0S8UB5000: PRES 
ET (8,80): PRINTt41,"(C)ompra ou” 
CLOSEL 
410 GOSUB 5000:PRESET (B-12*8*( 
TW=0),80):PRINT41," (Pjede mais 
ou acha”: PRESET (8,92): PRINT4IA, 
(S)juficiente 2?” 
430 AS=INKEYS:IF AS<>"P”" AND (A 
S<>"S8”" OR PT<l6) AND (AS<>"C” O 
AR TW=1) THEN 430 
440 IF AS="S" THEN GOSUB 
OTO 490 
450 IF AS="P” 
BO0:GOTO 480 
460 IF MN<OB THEN GOSUB 5800:G0 
SUB 5000: PRESET(B,80) :PRINT4A1L,” 
Você não tem”: PRESET(8,92):PRIN 
Ttl,"tanto dinheiro assim”:GOSU 
B 5500:G0TO 400 
470 BT=BT+0B:MN=MN-0B:GOSUB 700 
O:GOSUB 5000:GOSUB 8000:GOSUB 5 
000:GOSUB 5800 
4B0 NC=NC+1:GOSUB 3000:GOTO 320 
490 IF PT<lJ6 THEN GOSUB 5000:PR 
ESET (8,80): PRINT41L,"Você não po 
de parar tendo apenas ";PT:GOSU 
B 5500:CX=CX-32:GOTO 370 
500 GOTO 750 
650 GOSUB 5000:GOSUB 6000: PRESE 
T(8,88):PRINT41," VOCÊ TEM UM N 
ATURAL” : GOSUB 5500:PF=1:GOTO B6 
6B0 GOSURB 5000:GOSUB 6000:PRESE 
T(8,88B) :PRINT41,"Você estourou 
e perdeu a aposta”":GOSUB 5500 
750 GOSUB 5000:GOSUR 6000:IF MN 
>999 THEN PRINT$41,"PARABENS, VO 
CE QUEBROU A BANCA" :CLOSEI. PLAY 
"T255ADFBFEADC”" :GOSUB 5500:GOT 
o 790 


5800:6 


THEN TW=1:GOSUB 5 


451 
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760 PRESET (8,80): PRINT&1,"Apert 
e <RETUAN> para”: PRESET(8,92):P 
RINT$&1," jogar novamente” 

770 TF INKEYS<>CHRS (13) THEN 77 
Õ 

780 CLOSEI:GOTO B6 

2005 LINE (CX-2,CY-1)-(CX-2,CY+ 
71) ,12 

3000 GOSUB 1000:GOSUB 2000:TF N 
M>10 THEN PL=PL+10 ELSE PL=PL+N 


M 

3010 IF NM=1 THEN PA=1 

34020 RETURN 

5000 OPEN "GRP:" FOR OUTPUT AS 
41: COLORI5S: PRESET (8,88) : RETURN 
5500 CLOSElÍ:FOR 1I=1 TO 2000:NEX 
T:LINE (0,80)-(255,106),12,BF:R 
ETURN 

5800 CLOSEIL:LINE (0,80)-(255,10 
6) ,12,BF:RETURBN 

6000 LINE (204,0)-(255,23),12,B 
F: PRESET(204,16):PRINT41,"PONTO 
58”: PRESET(204,0):PRINT+AL,PL;: IF 
PA=1 AND PL<12 THEN PRESET (204 
,/8) :PRINT41,"OU";PT 

60OL0 RETURN 

6500 LINE (204,0)-(255,23),12,B 
F: PRESET (204,16): PRINTEI],"PONTO 

S". PRESET(204,0):PRINT+AL,PL;: IF 
PA=1 THEN PRESET(204,8):PRINTA 
H"OU 14” 

6510 RETURN 

7000 LINE (204,32)-(255,55),12, 

BF: PRESET (204,48) :PRINT41,"FTCH 

AS" : PRESET (204,32): PRINT+AlI,MN:C 

LOSE41: RETURN 

8000 PRESET(204,132):PRINT41,"A 

POSTA” :LINE (204,148)-(255,155) 
-.12,BF: PRESET(204,148):PRINTIAA, 

BT:CLOSE41]:RETURN 


A linha 86 estabelece o valor inicial 
de uma série de outras variáveis: CX e 
CY são as coordenadas do canto supe- 
rior esquerdo da carta. PL e DL são os 
totais do jogador e da banca, respecti- 
vamente. NC é o número de cartas que 
um deles tem, conforme aquele que es- 
teja jogando no momento. DA e PA são 
indicadores que passam a valer 1, caso 
a banca ou o jogador tenham um ás. PS 
é outro indicador que passa a valer 1, 
caso o jogador tenha uma “mão de cin- 
co cartas”. TW mostra se o Jogador já 
pediu uma carta; caso isso tenha acon- 
tecido, as regras impedem que ele “com- 
pre” novas cartas. PF indica se o joga- 
dor tem um “'natural”” (21 pontos em 
duas cartas) e NA é o número da pri- 
meira carta distribuída pela banca. 

A sub-rotina que fica entre as linhas 
3000 e 3020 é chamada pela linha 210. 
Uma carta é mostrada na tela; se ela for 
maior que 10, o total de pontos do jo- 
gador será aumentado em dez pontos; 
caso contrário, o valor real da carta se- 
rá somado ao total. A linha 3010 verifi- 
ca se a carta é um ás e modifica o valor 
de PA (indicador de ases do jogador) em 
caso de necessidade. 
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A BANCA DÁ AS CARTAS 


O programa retorna da sub-rotina 
3000 para a linha 220. Dil é a primei- 
ra carta da banca. A sub-rotina 1000 
verifica qual o seu valor e naipe. O 
FOR...NEXT desenha o reverso da pri- 
meira carta da banca. 

Para facilitar a impressão de mensa- 
gens na tela de alta resolução, foram fei- 
tas várias sub-rotinas no final do pro- 
grama. A da linha 5000 abre um arqui- 
vo “GRP:” para que possamos impri- 
mir na tela gráfica por meio de PRINT 
1; acor usada é o branco e PRESE T(8,88) 
estabelece a posição onde vai ser impres- 
sa a mensagem. A sub-rotina da linha 
5500 fecha o arquivo aberto pela sub- 
rotina anterior e apaga a mensagem es- 
crita no meio da tela, usando LINE,BF; 
isso é feito após uma pequena pausa por 
um laço FOR...NEXT para que o joga- 
dor tenha tempo de ler a mensagem. A 
sub-rotina da linha 5800 é igual à da li- 
nha 5500, só que não provoca uma 
pausa. 

A sub-rotina da linha 6000 mostra o 
total de pontos do jogador no canto su- 
perior direito da tela. A da linha 6500 
exibe, no mesmo local, o valor da pri- 
meira carta do jogador. A sub-rotina da 
linha 7000 mostra o total de fichas que 
restam ao jogador e a da linha 8000, o 
valor da aposta feita. 

A linha 240 revela os pontos do jo- 
gador com o auxílio das sub-rotinas. A 
linha 250 mostra o valor da aposta — 
que ainda é zero — e o total de fichas. 
Estas linhas usam a sub-rotina 5000 pa- 
ra abrir o arquivo que possibilita a im- 
pressão na tela gráfica. 

A linha 260 solicita ao jogador que 
faça sua aposta. O arquivo 41 é fechado 
para evitar problemas — não se deve 
deixar nunca um arquivo aberto. As li- 
nhas 265 a 269 permitem o uso das te- 
clas de controle do cursor para fazer 
apostas: as setas “direita” e “esquerda” 
subtraem ou somam 1 ao valor da apos- 
ta, as setas “para cima” e “para baixo” 
somam ou subtraem 10. 

A linha 270 apaga a mensagem ante- 
rior e também verifica se a aposta foi vá- 
lida; caso contrário, ela tem que ser feita 
novamente. Seu valor é subtraído do to- 
tal de fichas do jogador pela linha 280. 

A linha 290 traça a segunda carta do 
jogador e a linha 300 desenha o reverso 
da segunda carta da banca. A linha 320 
verifica se o jogador tem um “'natural” 
(ou seja, 21 pontos em duas cartas). 
Neste caso, a linha 650 informa o fato 
€ O jogo recomeça. 

A linha 330 cuida da posição da car- 
ta seguinte. PT é o maior total de pon- 


tos que pode ser obtido caso uma das 
cartas seja um ás. O menor total, ou o 
único total, se não houver ases, será PL. 
Se este for maior que 21, a linha 680 in- 
formará ao jogador que ele “estourou” 
O programa continua na linha 750, on- 
de são impressas algumas mensagens, 
conforme a situação. 

A linha 360 verifica se o jogador tem 
uma ''mão de cinco”. Em caso positi- 
vo, o sinalizador P5 será ativado e o jo- 
gador informado; o programa continua- 
rá então na linha 500. 

A linha 370 mostra os pontos do jo- 
gador, a 380 exibe a aposta feita e a 390, 


'o restante das fichas. 


AS OPÇÕES DO JOGADOR 





As opções de “comprar” ou “pedir” 
cartas e de ''parar"" são dadas pelas li- 
nhas 400 e 410, enquanto as linhas 430 
a 450 cuidam da resposta. Se o jogador 
tentar ''comprar”” cartas (o que dobra 
a aposta) sem ter fichas suficientes, a li- 
nha 460 dará a resposta adequada. A li- 
nha 470 ajusta e mostra o total de fichas 
antes que outra carta seja exibida pela 
linha 480. 

Por mais que tente, O o jogador não 
conseguirá “parar” antes de obter pelo 
menos dezesseis pontos, devido às con- 
dições do IF da linha 430. A linha 490 
é na realidade desnecessária e só entra- 
rá em ação caso se mude a condição 
PT < 16 da linha 430. 

A linha 750 atualiza o total de pon- 
tos do jogador e verifica se este tem mais 
de 999 fichas; neste caso, a banca '“'que- 
brará”" e o jogador será informado, en- 
quanto uma melodia comemora o fei- 
to. As linhas 760 e 780 perguntam en- 
tão se o jogador quer outra “queda” 


Apague a linha 170 e acrescente as 


próximas linhas ao programa do artigo 
anterior: 





150 MN = 100 

190 HCOLOR= 1: FOR I = 0 TO 19 
1: HPLOT 0,1 TO 2/9,1: NEXT 

200 CX = 6:CY = 2:PL = O:DL = O 


“NC = 2:DA = O:PA = 0:P5 = O:TU 
= O0:PÊE = O:NA = N 
210 GOSUB 3000 


220 DL = N: GOSUB 1000: FOR I = 


100 TO 180: HCOLOR= 3 + 2 * ( 
INT (II / 2) = 1 / 2): HPLOT 6,1 
TO 56,1: NEXT 
230 FOR K = 1 TO 3500: NEXT 
240 HOME TEXT : PRINT "VOCE 
TEM “;PL;: IF PA = | THEN PRIN 
T * OU 11”: GOTO 250 


245 PRINT 

250 PRINT PRINT "VOCE TEM "; 

MN;” FICHAS" 

260 PRINT INPUT "QUANTO VOCE 
APOSTA ?";BT 

270 BT = INT (BT): IF BT<10O 

R BT > MN THEN 240 

280 OB = BT:MN =-MN - BT 

290 CX = 60: GOSUB 3000 

300 DZ = N: GOSUB 1000: FOR TI = 
100 TO 180: HCOLOR= 3 + 2 * ( 

INT (I / 2) = 1 4 2): HPLOT 60, 

1 TO 110,1: NEXT 

310 FOR K = 1 TO 4000: NEXT 

320 IF PL = 11 AND PA=laAND 

NC = 2 THEN 650 

330 CX = CX + 54 

340 PT = PL + 10 * (PA AND (PL 

€ 123%) 

350 IF PL > 21 THEN 680 

360 HOME : TEXT : IF NC = 5 TH 

EN PRINT "VOCE TEM UMA MAO DE 

CINCO”":PS = 1: FOR K = 1 TO 250 

O: NEXT GoTo 500 

370 PRINT "VOCE TEM ";PL;: IF 

PA = 1 -AND PL < 12 THEN PRINT 

" OU ";PT: GoTo 380 

375 PRINT 

380 PRINT PRINT "VOCE APOSTO 

U “:BT 

390 PRINT PRINT "VOCE TEM "; 

MN;”" FICHAS” 

400 PRINT IF TW = O. THEN PR 

INT " (C)OMPRA OU ” 

410 PRINT : PRINT "(P)JEDE MAIS 
":: IF PT > 15 THEN PRINT "OU 
ACHA (S)UFICIENTE"; 

420 PRINT" 2" 

430 GET AS: IF AS < > "P” AND 
(AS < > "Ss" OR PT < 16) AND ( 

AS < > "Cc" OR TW = 1) THEN 430 

440 IF AS = "8º THEN 490 

450 IF AS = "P” THEN TW = |: G 

OTO 480 

460 IF MN < OB THEN PRINT:P 

RINT "VOCE NAO TEM TANTO DINHEI 

RO ASSIM": GOTO 400 


470 BT = BT + OB:MN = MN - OB 

480 NC = NC + 1: GOSUB 3000: GO 

TO 310 

490 IF PT < 16 THEN PRINT: P 

RINT "VOCE NAO PODE PARAR TENDO 
APENAS ";PT:CX = CX - 50: GOTO 
370 

500 GOTO 750 

650 HOME : TEXT : PRINT "VOCE 

TEM UM NATURAL”: FOR K = 1 TO 1 
500: NEXT :PF = 1: GOTO 190 

680 HOME : TEXT : PRINT "VOCE 
ESTOUROU E PERDEU A APOSTA” 

750 PRINT : PRINT "VOCE TEM "; 

MN;” FICHAS”: PRINT : IF MN > 9 

99 THEN HOME : INVERSE : HTAB 

8: UTAB 11: PRINT "VOCE QUEBROU 
A BANCA”: FOR I = 1 TO 2000:XX 
- PEEK ( - 16336): NEXT : GOT 

O 790 

760 PRINT : PRINT "APERTE <RET 

URN> PARA OUTRA MAO” 
770 GET A$: IF AS< > 
13) THEN 770 

780 Goto 190 

3000 POKE - 16299,0: 


CHRS ( 


PORE - 










16304,0: GOSUB 1000: GOSUB 2000 
: JE NM > LO THEN PL = PL + 10: 
GOTO 3010 

3005 PL = PL + NM 

3010 IF NM = 1 THEN PA = 1 
3020 RETURN 


Os leitores que possuem vídeo mono- 
cromático e que no último artigo prefe- 
riram apagar a linha 170 devem substi- 
tuir a linha 190 por: 

190 HGR2 


A linha 150 faz com que o número 
de fichas (MN) do jogador seja 100. A 
linha 190 limpa a tela. 

A linha 200 estabelece os valores ini- 
ciais de uma série de variáveis. CX e CY 
são as coordenadas do canto superior es- 
querdo da carta. PL a DL são os totais 
de pontos do jogador e da banca, res- 
pectivamente. NC é o número de cartas 
do jogador ou da banca, conforme 
aquele que estiver jogando. DA e PA 
são indicadores, respectivamente, de que 
o jogador ou a banca possuem um ás. 
P5 é um indicador de que o jogador pos- 
sui uma “mão de cinco cartas”. TW re- 
vela se o jogador já “pediu” cartas, sen- 
do então utilizado para evitar que ele 
“compre” cartas, segundo as regras do 
jogo. PF é um indicador de “naturais” 
(ou seja, pontos em duas cartas). NA é 
o número da primeira carta dada pela 
banca. Um indicador é uma variável que 
vale O ou 1, de acordo com a situação. 

A sub-rotina da linha 3000 é chama- 
da pela linha 210. Uma carta é coloca- 
da na tela; se for maior que 10, o total 
de pontos do jogador será aumentado 
em 10; caso contrário, o valor da carta 
será somado aos pontos do jogador. A 
linha 3010 verifica se a carta é um às, 
se necessário. 


A BANCA DÁ AS CARTAS 





O programa retorna da sub-rotina 
para a linha 220. Ali, Dl é a primeira 
carta da banca e a sub-rotina 1000 é usa- 
da para descobrir seu valor e naipe. O 
FOR...NEXT desenha o reverso da car- 
ta da banca. 

A linha 230 faz uma pausa antes que 
a linha 240 limpe e ative a tela de tex- 
tos e informe o total ao jogador. A 
mensagem adicional “OU 11” é usa- 
da somente quando a carta é um ás. O 
número de fichas é escrito pela linha 
250. A linha 269 cuida da aposta do jo- 
gador e a 270 providencia para que a 
aposta seja maior que zero e esteja den- 
tro das posses do jogador (caso con- 
trário, ela terá que ser feita novamen- 


te). O valor da aposta é subtraído das 


fichas do jogador pela linha 280. 

A seguir, a linha 290 chama a sub- 
rotina que distribui as cartas, e a linha 
300 desenha a parte posterior da segun- 
da carta da banca. 

A linha 320 verifica se o jogador tem 
um “natural” depois da pausa causada 
pela linha 310. Em caso positivo, a li- 
nha 650 informará o fato ao jogador e 
o programa recomeçará. 

A linha 330 cuida da posição da car- 
ta seguinte. PT é o maior dos totais de 
pontos, para o caso de o jogador pos- 
suir um ás. Se não houver ases, PL será 
o menor (ou o único) total. Se PL for 
maior que 21, a linha 680 informará ao 
jogador que ele “estourou”. O progra- 
ma continuará, então, imprimindo as 
mensagens da linha 750 em diante. 

A linha 360 verifica se o jogador tem 
uma ''mão de cinco cartas”, colocan- 
do | em P5 e criando uma pausa, caso 
isto seja necessário. 

A linha 370 mostra o total contido 
nas cartas do jogador (dois valores, se 
houver um ás e o valor menor for infe- 
rior a 12). A aposta do jogador é impres- 
sa pela linha 380 e a quantidade de fi- 
chas pela linha 390. 





AS OPÇÕES DO JOGADOR 


As opções de “parar”, “comprar” 
ou ''pedir”' cartas são oferecidas pelas 
linhas 400 a 420. As linhas 430 a 450 cui- 
dam das respostas do jogador. Se este 
tentar ''comprar” cartas sem ter dinhei- 
ro para dobrar a aposta, a linha 460 tra- 
tará de informá-lo. A linha 470 acerta 
o valor da aposta e do total de fichas an- 
tes da linha 480 dar a próxima carta. 

A condição PT < 16 da linha 430 im- 
pede que o jogador “pare” sem ter pe- 
lo menos dezesseis pontos. A linha 490 
é desnecessária e só entrará em ação se 
essa condição for modificada. O progra- 
ma continua na linha 750, que avisa ao 
jogador o número de fichas restantes, 
verificando se a banca foi “quebrada”. 
Se isso acontecer, um ruído será pro- 
duzido. 

As linhas 760 a 780 oferecem ao jo- 
gador a opção de jogar outra “mão”. 


a 


Para que o programa funcione no 
TK-2000 são necessárias algumas modi- 
ficações. Em primeiro lugar, daqui pa- 
ra a frente use apenas a MP (segunda 
página de vídeo). Quando o programa 
estiver completo, qualquer retorno a 
MA (primeira página de vídeo) vai 
danificá-lo. Então, primeiro digite MP 


| | | 1 1 


e depois < RETURN >; carregue o pro- 
grama inicial e faça as mesmas modifi- 
cações sugeridas para o Apple com ex- 
ceção das seguintes linhas: 


160  HGR2 

240 GOSUB 5000: PRINT "VOCÊ TE 
M ";PL;: IF PA = 1 THEN PRINT 
" OU 11": GOSUB 6000: GOTO 250 
245 PRINT GOSUB 6000 

250 GOSUB 5000: PRINT "VOCÊ TE 
M ":;MN;” FICHAS": GOSUB 6000 
260 GOSUB 5000: INPUT "QUANTO 


VOCE APOSTA ?";BT: GOSUB 6000 


360 GOSUB 5000: IF NC = 5 THEN 
PRINT "VOCÊ TEM UMA MAO DE CI 

NCO”":P5 = 1: GOSUB 6000 GOTO 50 

É) 

370 PRINT "VOCÊ TEM ";PL;: IF 

PA = 1 AND PL < 12 THEN PRINT 

"OU ":PT: GOSUB 6000: GOTO 380 

375 PRINT : GOSUB 6000 

380  GOSUB 5000: PRINT "VOCE AP 

OSTOU ";BT: GOSUB 6000 

390 GOSUB 5000: PRINT "VOCE TE 

M ":MN;" FICHAS": GOSUB 6000 

400 GOSUR 5000: IF TW = Q THEN 


PRINT " (C)OMPRA OU ” 

460 IF MN < OB THEN GOSUB 500 
O: PRINT "VOCE NÃO TEM TANTO DI 
NHEIRO ASSIM”: GOSUB 6000: GOTO 
400 

490 IF PT < 16 THEN GOSUB 500 
O: PRINT "VOCE NÃO PODE PARAR T 
ENDO APENAS ";PT:CX = CX - 50: 
GOSUB 6000: GOTO 370 


650 GOSUB 5000: PRINT "VOCE TE 
M UM NATURAL” : GOSUR 6000:PF = 
à 

660 GOSUB 4000: GOSUB 5000: TF 
DL = 11 THEN PRINT "MAS A BAN 
CA TEM A MESMA COISA”: GOSUB 60 
00: GOTO 610 

680 GOSUR 5000: PRINT "VOCÊ ES 


TOUROU E PERDEU A APOSTA”: GOSU 
B 6000 
690 GOSUB 5000: IF MN < 1 THEN 

PRINT "VOCE PERDEU TODAS AS F 
ICHAS”": GOSUB 6000: GOTO 790, 
700 IF PF = 1 THEN PRINT "EMB 
ARALHANDO AS CARTAS”: GOSUB 150 
0: GOSUB 6000: GOTO 750 

750 GOSUB 5000: PRINT "VOCE TE 
M ";MN;” FICHAS”: GOSUB 6000: I 
F MN > 999 THEN GOSUB 5000: PR 
INT "VOCE QUEBROU A BANCA”: FOR 

1 = 1 TO 2000: NEXT : GOTO 790 
760 GOSUB 5000: PRINT "APERTE 
<RETURN> PARA OUTRA MAO”: GOSUB 
6000 

5000 HCOLOR= 1: FOR 1 = 84 TO 
108: HPLOT 0,I TO 255,1: NEXT 
HTAB 1: VTAB 12: RETURN 
6000 FORT =1 TO l000: 
RETURN 

Note que você terá que procurar na 

listagem das modificações para o Apple 
algumas linhas que não estão aqui por 
falta de espaço. A diferença entre o pro- 
grama do Apple e do TK-2000 se deve 
ao fato de este último não possuir uma 
página só para textos. Assim, as men- 


NEXT 








sagens terão que ser impressas na tela 
gráfica. 

A sub-rotina da linha 5000 apaga 
qualquer coisa que tenha sido escrita an- 
tes e posiciona O cursor para a mensa- 
gem seguinte. A sub-rotina 6000 provo- 
ca uma pausa para que a mensagem pos- 
sa ser lida. No restante, o programa é 
igual ao do Apple e as explicações são 
as mesmas. 

As linhas 220 e 300 são um pouco di- 
ferentes das do Apple. Elas colocam as 
cartas da banca mais abaixo, abrindo 
um espaço para que as mensagens sejam 
impressas na tela. 


RR 


Acrescente as próximas linhas âque- 
las que digitou da outra vez: 


170 MN=100 

190 PCLS 6 

200 CX=6:CY=11:PL=0:DL=0:NC=2:D 

A=0:PA=0:P5=0:TW=0:PF=0:NA=N 
210 GOSUB 3000 

220 POKE 178,156:Dl=N:GOSUB 100 
O:LINE (6,108)-(50,180), PSET,BF 
230 FOR K=1l TO 2000:NEXT 

240 CLS:PRINT”" VOCE TEM" ;PL;:IF 
PA=1 THEN PRINT "OU 11" ELSE P 
RINT 

250 PRINT: PRINT” 
FICHAS” 

260 INPUT" FACA SUA APOSTA ";BT 
270 BT=INT(BT):IF BT<l OR BT>MN 
THEN 240 

280 0OB=BT:MN=MN-BT 

290 CX=56:GOSUB 3000:POKE 178,1 
56 

300 D2=N:GOSUB 1000:LINE(56,108 
)=(100,180), PSET,BF 

310 FOR K=1 TO 2500:NEXT 

320 IF PL=11 AND PA=1 AND NC=2 

THEN 650 

330 CX=CX+50 

340 PT=PL+10* (PA AND(PLc<12)) 
350 IF PL>21 THEN 680 

360 CLS: IF NC=5 THEN PRINT” VOC 
E TEM UMA MAO DE CINCO”":P5=1:FO 
R K=1 TO 1500:NEXT:GOTO 500 

370 PRINT” VOCE TEM" ;PL;:IF PA= 
1 AND PI.<1l2 THEN PRINT "OU" ;PT 
ELSE PRINT 

380 PRINT: PRINT” VOCE APOSTOU"; 
BT 

390 PRINT:PRINT” 
FICHAS” 

400 PRINT:IF 
C)JOMPRA OU”; 
410 PRINT” (P)EDE MAIS CARTAS”; 
“IF PT>15 THEN PRINT” OU (S)JATI 
SFEITO”; 

420 PRINT " 7" 

430 AS=INKEYS: IF AS<>"P” AND (A 
8<>"S8" OB PT<16) AND (AS<>"C”" O 
R TW=1) THEN 430 

440 IF AS="S” THEN 490 

450 IF AS="P” THEN TW=1:GOTO 48 


VOCE TEM" ;MN;" 


VOCÊ TEM" ;MN;" 


TW=0 THEN PRINT” ( 


0 
460 IF MN<OB THEN PRINT * VOCÊ 


NAO TEM TANTO DINHEIRO" :GOTO 40 
Q 

470 BT=BT+O0B;MN=MN-OB 

480 NC=NC+1:GOSUB 3000:GOTO 310 
490 IF PT<16 THEN PRINT ” VOCE 
NAO PODE PARAR AGORA"; PT:CX=CX- 
50:GOTO 370 


500 GOTO 750 

650 CLS:PRINT” VOCE TEM UM NATU 
RAL”":FOR K=1 TO 1000:NEXT:PF=1: 
GoTO 190 

680 CLS:PRINT” VOCE ESTOUROU E 
PERDEU A APOSTA” 

750 PRINT:PRINT” VOCE TEM" ;MN;" 
FICHAS" :PRINT:IF MN>999 THEN PR 
INT "MUITO BEM, VOCE QUEBROU A 
BANCA!":SCREEN 0,1:PLAY"T6ADFBF 
EADC":GOTO 790 

760 PRINT:PRINT” PRESSIONE (8) 
PARA RECOMECAR" 
770 IF INKEY$S<>"S" 
780 GoTO 190 

3000 SCREEN 1,1:GOSUB 1000:GOoSU 
B 2000:1IF NM>IO THEN PL=PL+I0 E 
LSE PL=PL+NM 

3010 IF NM=1 THEN PA=1 

3020 RETURN 

A linha 170 faz com que o número 
de fichas do jogador seja igual a cem. 
A linha 190 limpa e dá cor à tela. 

A linha 200 estabelece o valor inicial 
de uma série de variáveis, CX e CY são 
as coordenadas do canto superior es- 
querdo da carta. PL e DL são, respect+ 
vamente, os totais de pontos do jogador 
e da banca. NC é o número de cartas de 
quem estiver jogando no momento, jo- 
gador ou banca. DA e PA são indica- 
dores que passam a valer | se a banca 
ou o jogador tiverem um ás. P5 é um 
indicador que sofrerá a mesma modifi- 
cação caso o jogador consiga uma “mão 
de cinco cartas”. TW é um indicador 
que passará a valer | quando o jogador 
“pedir” uma carta. Segundo as regras, 
a partir de então ele não poderá mais 
“comprar". PF é um indicador de “'na- 
turais” e NA o número da primeira car- 
ta dada pela banca. 

A sub-rotina da linha 3000 é chama- 
da pela linha 210. Uma carta é coloca- 
da no vídeo. Se for maior que 10, o to- 
tal do jogador será aumentado em dez; 
caso contrário, o valor da carta será so- 
mado aos pontos do jogador. Se a car- 
ta for um ás, a linha 3010 colocará | no 
sinalizador de ases PA. 


THEN 770 





A BANCA DÁ AS CARTAS 


Quando o programa retornar, a linha 
220 usará POKE para obter o padrão 
usado no reverso das cartas. Dl é a pri- 
meira carta da banca; a sub-rotina des- 
cobre seu valor e naipe. LINE desenha 
a carta e POKE cria o padrão. 

A linha 230 provoca uma pausa an- 





tes que a linha 240 limpe a tela e es- 
creva o total do jogador. O comando 
PRINT muda automaticamente a tela 
gráfica para a tela de textos. Se a carta 
for um ás, aparecerá uma mensagem 
adicional “OU 11". O número de fichas 
é informado pela linha 250. 

A linha 260 cuida da aposta; a linha 
270 verifica se esta é válida; caso con- 
trário, ela deve ser refeita. A aposta é 
subtraída das fichas do jogador pela li- 
nha 280. 

A seguir, a linha 290 chama as sub- 
rotinas que dão as cartas e a linha 300 
desenha a segunda carta da banca. 

A linha 320 verifica se o jogador tem 
um “natural” (isto é, 21 pontos em duas 
cartas), depois da pausa criada pela li- 
nha 310. Se houver um “'natural””,.a li- 
nha 650 informará ao jogador, e o jogo 
começará de novo. 

A linha 330 cuida da posição da car- 
ta seguinte. Se o jogador tiver um ás, O 
maior dos seus totais será PT. Se não 
houver ases, o menor (ou único) total se- 
rá PL, Se este for maior que 21, a linha 
680 informará ao jogador que houve um 
“estouro”, e o programa irá para a li- 
nha 750. A linha 350 verifica se o joga- 
dor tem uma ''mão de cinco”. Neste ca- 
so, o indicador PS será ativado e uma 
pausa será provocada antes de o jogo 
prosseguir. 

A linha 370 mostra o total dos pon- 
tos do jogador — dois valores, se hou- 
ver um ás e o valor menor for inferior 
a 12. A aposta é mostrada pela linha 380 
e as fichas remanescentes são indicadas 
pela linha 390. 


AS OPÇÕES DO JOGADOR 


As opções de “parar”, “comprar” 
ou “pedir” cartas são oferecidas ao jo- 
gador pelas linhas 400 a 420. As linhas 
430 a 450 cuidam das respostas. Se o jo- 
gador tentar comprar cartas sem ter fi- 
chas suficientes para dobrar a aposta, 
a linha 460 dará o aviso. A linha 470 
atualiza o valor da aposta e do total de 
fichas, antes que a linha 480 dê outra 
carta. 

Se o jogador tentar “parar” sem ter 
pelo menos dezesseis pontos, será impe- 
dido pela condição PT < 16 na linha 430, 
A linha 490 é desnecessária e só entrará 
em ação caso essa condição seja modi- 
ficada. 

A linha 750 diz ao jogador quantas 
fichas sobraram e verifica se ele conse- 
guiu quebrar a banca. Se isso acontecer, 
haverá um efeito sonoro depois de uma 
mudança de cores. 

As linhas 760 a 780 permitem ao jo- 
gador uma outra 'mão”. 
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Uma das características da programa- 
ção consiste em que tudo o que não es- 
teja gravado em fita ou no disquete tem 
que ser digitado. Frequentemente, con- 
tudo, pode-se economizar tempo, mo- 
dificando programas já prontos ou com- 
binando dois (ou mais) programas para 
formar um terceiro. 

Existem basicamente duas maneiras 
de combinar programas. A primeira 
consiste em somar duas partes com nú- 
meros de linhas diferentes. A segunda, 
mais complexa, permite a união de pro- 
gramas com números de linhas iguais. 
Neste curso, os dois métodos serão tra- 
tados simultaneamente. 


QUANDO COMBINAR 





Combinar programas (Merge é o ter- 
mo usado em inglês) é essencialmente 
um método de auxílio à programação, 
Suponhamos, por exemplo, que você te- 
nha feito um programa que não funcio- 
na do modo esperado, ou que deseje al- 
terá-lo para que ele execute uma tarefa 
diferente daquela para a qual foi cria- 
do. A melhor maneira seria gravá-lo em 
fita ou disquete e continuar a trabalhar 
nele sem medo de danificar o original. 
Uma vez aperfeiçoado, o programa es- 
taria, digamos, com o dobro do tama- 
nho original, ou teria ganho vários mó- 
dulos diferentes. Em qualquer caso, as 
duas versões podem ter elementos que 
você deseje conservar, mas existem en- 
tre elas tantas diferenças que seria mui- 
to dificil digitar cada coisa separada- 
mente. E há mais um problema: a não 
ser que você coloque os dois programas 
no papel, é necessário ter tudo na me- 
mória para poder fazer as mudanças na 
hora de combiná-los. 

Outra situação em que se torna ne- 
cessário combinar programas é aquela 
em que se deseja incorporar rotinas ou 
procedimentos já existentes a um novo 
programa. Estes podem ser longas roti- 
nas em código de máquina que tocam 
uma música, ou uma rotina que anima 
um desenho em alta resolução, ou mes- 
mo uma rotina de detecção de erros. 

A maioria dos programadores tem 
uma variada ''biblioteca”” de sub-roti- 
nas, montadas ao longo dos anos e in- 
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corporadas aos novos programas de 
acordo com as necessidades. Uma “*bi- 
blioteca”” desse tipo tem um valor ines- 
timável pois, uma vez que as rotinas te- 
nham sido digitadas, testadas e grava- 
das, não é necessário nem mesmo dese- 
jável redigitá-las toda vez que for pre- 
ciso utilizá-las. Elas podem ser incorpo- 
radas ao programa por meio das técni- 
cas de combinação. 

Esse recurso serve igualmente para 
enfileirar uma série de pequenos progra- 
mas e executá-los sequencialmente. Nes- 
te caso, pode-se ter, por exemplo, uma 
série que comece por uma saudação ini- 
cial, seguida de um desenho multicolo- 
rido, e assim por diante. 

A última linha pode desviar o progra- 
ma para o início, provocando uma exe- 
cução continua. 
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Por que perder tempo digitando rotinas 
e programas já digitados e 

Ê testados, se o computador pode fazer 
todo esse trabalho com 
a ajuda apenas de alguns comandos? 
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“COMO COMBINAR 


Cada computador tem seu próprio 
método para fazer a combinação de pro- 
gramas. Alguns dispõem de um coman- 
do (MERGE) que se encarrega da tare- 
fa, fazendo com que o programa que es- 
tá na memória seja retido enquanto ou- 
tro é carregado da fita ou disquete. Já 
outros exigem que se digite algumas li- 
nhas de instrução, ou se destine espaço 
na memória para o segundo programa. 

Qualquer que seja o método utiliza- 
do, no entanto, é necessário que os nú- 
meros de linhas sejam ajustados antes 
para que a combinação se dê da forma 
desejada. 

O ZX-81 é um caso especial. Ele não 
tem um comando para fazer a combi- 
nação e não há nenhuma técnica razoa- 
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E PORQUE JUNTAR PROGRAMAS 
E COMO ACRESCENTAR 
— SUB-ROTINAS PRÊ-FABRICADAS 
Bi COMO COMBINAR VÁRIOS 
PROGRAMAS EM UM SÓ 








velmente simples que permita que dois 
programas sejam carregados na memó- 
ria. Veja a seção Perguntas e respostas 
para maiores informações. 


No Spectrum, a combinação de pro- 
gramas é feita por intermédio do coman- 
do MERGE, que torna muito simples 
essa operação. No entanto, é necessário 
atenção com a numeração dos progra- 
mas a serem combinados. Por exemplo, 
para juntar uma sub-rotina de umas vin- 
te linhas a um programa maior, é preci- 
so deixar um espaço na numeração. As- 
sim, O programa seria numerado de 10 
a 50, digamos, e de 300 a 1000, e a 
sub-rotina de 60 a 250. 

Outra possibilidade é dar à sub-rotina 
uma numeração superior à do progra- 
ma. Com um pouco de cuidado, pode- 
se arranjar as coisas de tal forma que, 
com a substituição de algumas linhas 
por outras, e a incorporação de novas 
linhas, obtenha-se um novo programa. 

Agora, digite e execute o programa 
a seguir. Ele mostra quadrados colori- 
dos em posições aleatórias. Mais adian- 
te, você verá como combiná-lo com ou- 
tro programa: 


10 BORDER O: 
50 PAPER 0 
60 CLS 
70 FOR n=1 TO 400 
BO LET x=INT (RND*32) 
90 LET y=INT (RND*22) 
100 PAPER 7: IF x>8 AND x<24 
AND vy>6 AND y<l6 THEN PAPER 4 
110 PRINT AT y,x;” * 
120 NEXT n 


INK 9 


Grave o programa (com o título de 
SQI, por exemplo). E não desconecte o 
gravador — você ainda vai precisar de- 
le. Note que qualquer outro programa 
que você já tenha serviria para nossa de- 
monstração. Digite NEW e em seguida 
o próximo programa: 


10 BORDER O: PAPER O: INK 9: 
CLS 

30 FOR t=1 TO 5 

40 INK INT (RND*6)+2 

60 PRINT AT t,0;"ISTO E UM TE 
STE” 

130 NEXT t 








Existe uma forma simples de combi- 
nar programas no ZX-B7? 

Infelizmente, não. Isso pode ser fei- 
to em linguagem de máquina, mas o 

| programa é bem complicado. 

O ZX-81 não tem um comando 
MERGE e não existe nenhuma forma 
em BASIC de carregar dois programas 


| na memória ao mesmo tempo (todos os | 


| programas são carregados no mesmo 

endereço da memória). Assim, ao se 
| carregar um programa, inevitavelmen- 
| te se destrói o anterior. 


Este é um programa muito simples, 
que mostra uma mensagem (linha 60) 
cinco vezes. Agora digite MERGE”” 
para combiná-lo com o anterior (não se 
esqueça de retroceder a fita até o início 
do programa). O programa da fita será 
então adicionado ao da memória do mi- 
cro. Liste o novo programa e observe 
que as linhas 10 e 60 foram substituídas, 
enquanto as linhas 50 e de 70 a 120 fo- 
ram acrescentadas. Execute o programa 
para ver o procedimento inicial (SQI) 
executado cinco vezes. 

Como não é muito fácil renumerar 
programas no Spectrum, convém ajus- 
tar a numeração das linhas antes de 
combinar os programas. 


BRBERS SS 
O TRS-Color permite a junção de 
programas em sequência, mas não a so- 
breposição de linhas. 
Digite e execute o programa seguin- 


te, que coloca quadradinhos coloridos 
em áreas retangulares da tela. 


10 PCLEAR 4 

20 FOR T=1 TO 5 

30 CLS O 

40 FOR N=1 TO 400 

50 X=RND(32)-1 

60 Y=RND(16)-1 

70 IF X<6 OR X>25 OR Y<4 OR Y>21 
1 THEN C=175 ELSE €=255 
80 POKE 1024+Y*32+X,€C 
90 NEXT 

100 NEXT 


Agora, grave o programa (como 
SQ1, por exemplo), para que ele possa 
ser carregado novamente na memória. 
Ele poderia ser uma longa sub-rotina ou 
parte de um programa inacabado. 





Digite o comando NEW e, em segui- 
da, o próximo programa: 


10 PCLEAR 4 

20 CLS 

30 PRINT €192, STRINGS (32,CHRS(2 
36)); 


40 PRINT ” BENVINDO A UM DISPLA 

Y COLORIDO” 

50 PRINT STRINGS (32,CHRS$(163)) 
O programa imprime uma mensagem 

na tela (linha 40). Para juntar a ele o 

programa que você já gravou, entre as 

linhas a seguir: 

POKE 25, PEEK(27) 

POKE 26, PEEK(28B)-2 


Em seguida, carregue o programa da 
fita (SQ1) e entre estas instruções: 
POKE 25,30 
POKE 26,1 

Ao listar o novo programa, ele apa- 
recerá com números de linha de 10 a 50 
e a seguir de 10 a 100. Digite RENUM 
para renumerar o programa e liste-o no- 
vamente; você verá algo como: 


10 PCLEAR 4 

20 CLS 

30 PRINT €192,STRINGS(32,CHRS(2 
36)); 


40 PRINT ” BENVINDO A UM DISPLA 
Y COLORIDO" 
50 PRINT STRINGS (32,CHR$(163)) 
60 PCLEAR 4 
70 FOR T=1 TO 5 
B0 CLS 0 
90 FOR N=1 TO 400 
100 X=RND(32)-1 
110 Y=RND(16)-1 
120 IF X<6 OR X>25 OR Y<4 OR Y> 
11 THEN C=175 ELSE €=255 
130 POKE 1024+7*32+X,C 
140 NEXT 
150 NEXT 

A primeira parte do programa é exe- 
cutada rapidamente. Para separá-la da 
segunda parte, mude a linha 60 para: 


60 FOR K=1 TO 2000:NEXT 
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O MSX é outro computador que 
apresenta grande facilidade para com- 
binação de programas. Como o Spec- 
trum, ele possui o comando MERGE, 
que se encarrega de todo o trabalho. 

Todavia, é sempre importante tomar 
cuidado com a numeração das linhas, 
pois, se existiremilinhas de mesmo núme- 
ro nos dois programas a serem unidos, 
aquelas que vêm do programa que é car- 
regado da fita substituirão as da memó- 
ria. Assim, deve-se sempre deixar espa- 
ço suficiente no programa que vai rece- 
ber o novo trecho para que não se per- 
cam linhas. 


Digite o programa apresentado a se- 
guir. Ele desenhará quadradinhos colo- 
ridos em determinada região da tela. Em 
seguida grave-o na fita, usando o co- 
mando SAVE (e não CSAVE). Chame- 
o, por exemplo, de SQL. 


60 R=AND(-TIME) 
70 SCREEN3 
80 COLOR 15,R*15 
90 FORI=1T0400 
100 X=INT(RND(1)*256) 
110 Y=INT(RND(1)*192) 
120 IFX<360RX>2100RY<200RY>ILOT 
HEN100 
130 PSET(X,Y),RND(1)*15 
140 NEXT 

Quando tiver terminado a gravação 
do programa, digite NEW e, sem desco- 
nectar o gravador do micro, coloque es- 
te outro programa no seu computador: 


10 CLS 

20 PRINTSTRINGS (39,36) 

30 PRINTTAB(10);"VEJA QUE BELO 
EFEITO!" 

40 PRINT: PRINTSTRINGS (39, 36) 
50 FORJ=1T0500:NEXT 

150 SCREENO 

160 PRINTSTRINGS (39,123) 

170 PRINTTAB(10);"ACABOU!!!" 

Este é um programa muito simples, 
que coloca duas mensagens na tela. So- 
zinho, não quer dizer muita coisa; mais 
adiante, porém, você poderá avaliar sua 
importância. € 

Agora, rebobine a fita para posicio- 
ná-la no início do programa anterior. 
Digite MERGE“SOL”. Em seguida, di- 
gite LIST. Veja que os dois programas 
estão juntos, o primeiro colocado den- 
tro do segundo. 

Como o MSX também oferece o co- 
mando RENUM, você não terá dificul- 
dade para fazer com que os números das 
linhas dos programas sejam os mais ade- 
quados às combinações que quiser fazer. 


O Apple II não tem o comando MER- 
GE no BASIC; mas, para quem traba- 
lha com uma unidade de disco, existe 
um programa no disco-mestre do siste- 
ma operacional que renumera as linhas 
de um programa em BASIC e permite 
que se faça a combinação de programas. 
Para trabalhar com ele, basta seguir as 
instruções do manual. 

Aqui, mostraremos duas outras for- 
mas de se combinar programas. A pri- 
meira é destinada a quem trabalha com 
disquetes. Essa técnica aproveita a fa- 
cilidade do Apple para ler um arquivo 
texto, simulando entradas de teclado. 
Pode-se guardar, assim, uma série de 
instruções (uma rotina de ordenação, 
por exemplo) na forma de um arquivo 
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texto e, por meio do comando EXEC, 
fazer com que a rotina seja adicionada 
ao programa da memória. Tudo funcio- 
na como se a rotina tivesse sido digita- 
da no teclado. Vejamos como isso acon- 
tece. Digite o programa a seguir: 


DS = CHR$ (4) 
PRINT D$;"OPEN TEXT" 
PRINT DS;"WRITE TEXT” 
POKE 33,33: LIST 10 - 
PRINT DS;"CLOSE”: POKE 33,40 
END 
100 DS = CHR$ (4) 
110 PRINT DS;"OPEN TEXT" 
120 PRINT D$;"WRITE TEXT” 
130 POKE 33,33: LIST - 5 
140 PRINT D$S;"CLOSE”: POKE 33, 
40 
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Depois de digitá-lo, execute-o a par- 
tir da linha 100 (RUN 100). Isto fará 
com que seja criado um arquivo texto 
no seu disco que contém as linhas 1 a 
S. Ao verificar o diretório (catálogo) do 
disco (CATALOG), você verá que o 
arquivo tem o nome de TEXT. Modi- 
fique-o para MERGE e você se lem- 
brará facilmente do nome (RENAME 
TEXT, MERGE). Agora digite NEW e 
a seguir o próximo programa: 


40 GR 
50 FOR I = 1TOS00 
60 COLOR= RND (1) * 16 


d 
AALL,OAY Wim 


90 
100 


PLOT X,Y 

NEXT 

70 X = BRND (1) * 40 
BO Y = BRND (1) * 40 

O programa mostra uma grande quan- 
tidade de quadrados coloridos na tela; 
é bem simples, mas servirá para a nossa 
demonstração. Agora digite MON CLO 
e depois EXEC MERGE. Você verá as 
linhas | a 5 do programa anterior apa- 
recerem na tela. Liste o programa e ve- 
rifique se as linhas que você havia digi- 
tado ainda estão lá. Dessa forma, você 
já conseguiu combinar dois programas: 
o que desenha na tela e o outro, que po- 
de não lhe parecer muito claro. Agora, 
vamos explicá-lo melhor. A primeira li- 
nha apenas define a variável DS como 
o caractere de código 4; este indica ao 
computador que um comando do siste- 
ma operacional está sendo usado. A se- 
guir, um arquivo é aberto e preparado 
para receber dados (linhas 2 e 3). A linha 
4 coloca a listagem do programa nesse 
arquivo, a partir da linha 10. O arqui- 
vo é então fechado e termina a rotina. 

A vantagem dessa operação consiste 
em que uma rotina assim armazenada 
pode ser adicionada a qualquer progra- 
ma com apenas um comando. 

Para compreender melhor, digite RUN, 
Nossa pequena rotina será executada e 
o programa que coloca os quadrados co- 
loridos na tela será armazenado no ar- 
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Se o seu micro tem um comando pa- 
ra a renumeração de linhas, use-o pa- 
ra que o programa comece em uma de- 

| terminada linha e tenha um incremen- 
to constante. Se você não tem o pro- 
grama, a renumeração deve ser feita 

| manualmente; mas tome cuidado com 

| todas as linhas referenciadas em ins- 
truções GOTO ou GOSUB e ON...G0O- 
TO ou ON...GOSUB, 





quivo de nome TEXT. À medida que 
outras rotinas forem sendo guardadas, 
é necessário dar a elas novos nomes co- 
mo foi feito com MERGE. Agora digi- 
te NEW e a seguir o próximo programa: 


10 HOME 

20 PRINT "*2X* DEMONSTRACAO 
DO MERGE RAMO 

30 FOR I = 1 TO Z000: NEXT 
110 TEXT GOTO 10 


Este programa imprime apenas duas 
mensagens na tela. Para uni-lo ao pro- 
grama dos quadradinhos, você deve di- 
gitar EXEC TEXT. Feito isso, os dois 
programas podem ser executados como 
se fossem um só. 
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SEGUNDO MÉTODO 


Para quem não tem uma unidade de 
disco, há um outro método, mais rudi- 
mentar, que também permite a combi- 
nação de programas. Esse método co- 
loca um programa após o outro, blo- 
queando a mistura de linhas de núme- 
ros variados. Assim, o programa da me- 
mória deve ter numeração inferior ao 
daquele que vai ser carregado da fita. 

Digite inicialmente as linhas de 40 a 
100 do programa anterior. A seguir, gra- 
ve-o em fita. Limpe a memória do mi- 
cro (NEW) e digite as linhas de 10 a 30. 
Não digite a linha 110. Agora execute 
as seguintes instruções: 

E=PEEK (106) *256+PEEK (105)-2 
E POKE 104, INT(E/256) 
N POKE 103,E-PEEK(104)*256 





Carreque o programa da fita com 
o comando LOAD 


POKE 104,8 
POKE 103,1 
LIST 


E temos os dois programas juntos. 


Os microcomputadores compatíveis 
com a linha TRS-80 que dispõem de BA- 
SIC para disco (ou seja, sob o sistema 
operacional DOS) já têm os comandos 
MERGE — destinado a combinar pro- 
gramas (com possibilidade de substitui- 
ção de linhas e de inserção de linhas in- 
termediárias) — e RENUM, que permite 
a renumeração das linhas do programa 
resultante. Assim, é muito fácil fundir 
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dois ou mais programas em rotinas em 
BASIC: basta carregar ou digitar o pri- 
meiro programa na memória (através de 
um comando LOAD) e, em seguida, di- 
gitar um comando MERGE “nome”, 
para especificar a denominação do pro- 
grama a ser fundido com o primeiro. 
O TRS-80 na versão cassete não tem 
o comando MERGE,; para combinar 
programas nesse micro são necessários, 
portanto, alguns “truques” especiais. 
Esses “truques”, contudo, permitem 
apenas que se juntem programas em se- 
quência, isto é, um depois do outro, im- 
pedindo a superposição de linhas. 
Digite e execute c programa seguin- 
te, que coloca uma mensagem várias ve- 
zes na tela: 
100 CLS 
110 FOR I=1 TO 5 
120 PRINT "GOSTOU DO 
130 NEXT I 


Agora, grave o programa (como 
SQ1, por exemplo), para que ele possa 
ser carregado novamente na memória. 
Ele poderia ser uma longa sub-rotina ou 
parte de um programa inacabado. 

Digite NEW e depois o programa a 
seguir, que serve para preencher a tela 
com quadradinhos ao acaso: 


10 RANDOM 

20 FOR T=1 TO 5 
30 CLS 

40 FOR N=1 TO 400 
50 X=ARND(64)-1 

60 Y=AND(16)-1 

70 SET (X,Y) 

BO NEXT N 

90 NEXT T 


Ele imprime uma mensagem na tela. 
Para juntar o programa que você já gra- 
vou, entre a linha a seguir: 


TESTE ?” 


PRINT PEEK (16633) 


Se o resultado mostrado na tela for 
menor do que 2, digite as linhas abaixo: 


POKE 16548, PEEK(16633)+254 
POKE 16549,PEEK(16634)-1 


Entretanto, se o resultado for maior 
ou igual a 2, digite estas linhas: 


POKE 16548,PEEK(16633)-2 
POKE 16548, PEEK (16634) 


A seguir, carregue o programa da fi- 
ta (SQ1), usando o comando CLOAD, 
e entre estas instruções: 


POKE 16548,233:POKE 16549,66 


Ao listar o novo programa, ele apa- 
recerá com números de linha de 10 a 70 
e a seguir com os números de 100 em 
diante. Liste-o novamente, e você verá 
o programa inteiro. 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 
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“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
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PROGRAMAÇÃO BASIC 


As rotinas de ordenação beneficiam todo tipo de programa que 
manipula dados. Três métodos infalíveis. 


CÓDIGO DE MÁQUINA 


Aprenda a desenhar no vídeo um dragão que cospe fogo e viva novas aventuras. 


PROGRAMAÇÃO BASIC 


Comandos GET e PUT: com eles você pode armazenar figuras em 
matrizes e trazê-las de volta à tela. 


PROGRAMAÇÃO DE JOGOS 


Como ensinar seu computador a “bancar” o jogo 
de vinte-e-um. 
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